home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 August / macformat-053.iso / mac / Demos / Acacia Educational Multimedia / START.Dxr / 00013.ls < prev    next >
Encoding:
Text File  |  1997-04-15  |  374 b   |  22 lines
  1. on exitFrame
  2.   RolloNorm()
  3.   go(the frame)
  4. end
  5.  
  6. on RolloNorm
  7.   global gDown
  8.   set OK to 0
  9.   repeat with i = 4 to 8
  10.     if rollOver(i) or rollOver(i + 5) then
  11.       if gDown = i then
  12.         set OK to i
  13.       else
  14.         set the memberNum of sprite i to 23
  15.       end if
  16.       next repeat
  17.     end if
  18.     set the memberNum of sprite i to 22
  19.   end repeat
  20.   set gDown to OK
  21. end
  22.